home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hy-Hyperi / HyperBBS 2.0.cpt / HyperBBS 2.0 / Chat / cards.xml < prev    next >
Text File  |  1992-07-14  |  2KB  |  54 lines
  1. card_5678.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>5678</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2624</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3183.css" />
  12.     <part>
  13.         <id>1</id>
  14.         <type>field</type>
  15.         <visible> <true /> </visible>
  16.         <dontWrap> <false /> </dontWrap>
  17.         <dontSearch> <false /> </dontSearch>
  18.         <sharedText> <false /> </sharedText>
  19.         <fixedLineHeight> <false /> </fixedLineHeight>
  20.         <autoTab> <false /> </autoTab>
  21.         <lockText> <false /> </lockText>
  22.         <rect>
  23.             <left>0</left>
  24.             <top>0</top>
  25.             <right>512</right>
  26.             <bottom>342</bottom>
  27.         </rect>
  28.         <style>scrolling</style>
  29.         <autoSelect> <false /> </autoSelect>
  30.         <showLines> <false /> </showLines>
  31.         <wideMargins> <false /> </wideMargins>
  32.         <multipleLines> <false /> </multipleLines>
  33.         <reservedFamily> 0 </reservedFamily>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>left</textAlign>
  37.         <font>Tech</font>
  38.         <textSize>9</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <textHeight>12</textHeight>
  41.         <name>Chat</name>
  42.         <script></script>
  43.     </part>
  44.     <content>
  45.         <layer>card</layer>
  46.         <id>1</id>
  47.         <text>Type shift-6 (^) to exit chat...</text>
  48.     </content>
  49.     <name>Chat</name>
  50.     <script>on openCardglobal keybuffglobal foundSoFarput empty into foundSoFarconfigureSPort lineFeedOn,echoOnput "Type shift-6 (^) to exit chat..." into itput it & return & return into cd field "Chat"sendString return & return & return & it & return & returnplay "chat"put empty into keybuffend openCardon idleglobal foundSoFarget recvUpTo(return,10,foundSoFar)-- get recvChars(charsAvailable())if it is not empty then put it after cd fld "Chat"if it contains "^" then exitChatelse if it contains "NO CARR" thenput "Connection broken!"exitChatend ifend idleon keydown whichkeyglobal keybuffget whichkeyif it is numToChar(8) thenput empty into last char of keybuffelse if it is "^" then exitChatelseput it after keybuffif it is  then beep 1elseif (charToNum(it) < 65) or (charToNum(it) > 122) thenput keybuff after cd field "Chat"sendString keybuffput empty into keybuffend ifend ifend ifend keydownon exitChatbeep 1sendVanilla "Chat ending... "pop cardend exitChat</script>
  51. </card>
  52.  
  53.  
  54.